R Markdown
This is an R Markdown document. Markdown is a simple formatting
syntax for authoring HTML, PDF, and MS Word documents. For more details
on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be
generated that includes both content as well as the output of any
embedded R code chunks within the document. You can embed an R code
chunk like this:
library(DT)
datatable(cars)
Including Plots
Pressure

Cars

Plot 3

Plot 4

GGplot
library(tidyverse)
library(plotly)
df = iris
iris %>% ggplot(aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
geom_point() + theme_bw() + theme(legend.position = 'bottom') -> p1
invisible(ggsave(filename = 'figs/iris_plot.png', plot = p1) )
## Saving 7 x 5 in image
plotly::ggplotly(p = p1)
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.
LS0tDQp0aXRsZTogIkFuIEludHJvZHVjdGlvbiB0byBSIE1hcmtkb3duIg0KYXV0aG9yOiAiRmFkZWwgTS4gTWVnYWhlZCINCmRhdGU6ICJgciBmb3JtYXQoU3lzLkRhdGUoKSwgJyVCICVkLCAlWScpYCINCm91dHB1dDogDQogIGh0bWxfZG9jdW1lbnQ6DQogICAgY29kZV9kb3dubG9hZDogVFJVRQ0KICAgIGNvZGVfZm9sZGluZzogc2hvdw0KICAgIGRmX3ByaW50OiBwYWdlZA0KICAgIG51bWJlcl9zZWN0aW9uczogVFJVRQ0KICAgIHRoZW1lOiByZWFkYWJsZQ0KICAgIHRvYzogVFJVRQ0KICAgIHRvY19kZXB0aDogMw0KICAgIHRvY19mbG9hdDogVFJVRQ0KLS0tDQoNCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFLA0KICAgICAgICAgICAgICAgICAgICAgIHdhcm5pbmcgPSBGQUxTRSwNCiAgICAgICAgICAgICAgICAgICAgICBjYWNoZSA9IFRSVUUpDQoNCiMgU2V0dGluZyB0aGUgcmFuZG9tIHNlZWQgYW5kIGNodW5rIGRlcGVuZGVuY2llcw0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGNhY2hlLmV4dHJhID0gc2V0LnNlZWQoMjAyMSksDQogICAgICAgICAgICAgICAgICAgICAgYXV0b2RlcCA9IFRSVUUpIA0Ka25pdHI6OmRlcF9hdXRvKCkNCmBgYA0KDQojIFIgTWFya2Rvd24NCg0KVGhpcyBpcyBhbiBSIE1hcmtkb3duIGRvY3VtZW50LiBNYXJrZG93biBpcyBhIHNpbXBsZSBmb3JtYXR0aW5nIHN5bnRheCBmb3IgYXV0aG9yaW5nIEhUTUwsIFBERiwgYW5kIE1TIFdvcmQgZG9jdW1lbnRzLiBGb3IgbW9yZSBkZXRhaWxzIG9uIHVzaW5nIFIgTWFya2Rvd24gc2VlIDxodHRwOi8vcm1hcmtkb3duLnJzdHVkaW8uY29tPi4NCg0KV2hlbiB5b3UgY2xpY2sgdGhlICoqS25pdCoqIGJ1dHRvbiBhIGRvY3VtZW50IHdpbGwgYmUgZ2VuZXJhdGVkIHRoYXQgaW5jbHVkZXMgYm90aCBjb250ZW50IGFzIHdlbGwgYXMgdGhlIG91dHB1dCBvZiBhbnkgZW1iZWRkZWQgUiBjb2RlIGNodW5rcyB3aXRoaW4gdGhlIGRvY3VtZW50LiBZb3UgY2FuIGVtYmVkIGFuIFIgY29kZSBjaHVuayBsaWtlIHRoaXM6DQoNCmBgYHtyIGNhcnN9DQpsaWJyYXJ5KERUKQ0KZGF0YXRhYmxlKGNhcnMpDQpgYGANCg0KIyBJbmNsdWRpbmcgUGxvdHMgey50YWJzZXQgLnRhYnNldC1waWxscyAudGFic2V0LWZhZGV9DQoNCiMjIFByZXNzdXJlIHstfQ0KYGBge3IgcHJlc3N1cmUsIGVjaG89RkFMU0V9DQpwbG90KHByZXNzdXJlKQ0KYGBgDQoNCiMjIENhcnMgey19DQpgYGB7ciBwbG90MiwgZWNobz1GQUxTRX0NCnBsb3QoY2FycykNCmBgYA0KDQpgYGB7ciBtdGNhcnMsIGVjaG89RkFMU0UsIHJlc3VsdHM9J2FzaXMnfQ0KZGYgPSBtdGNhcnMNCg0KZm9yIChpIGluIDE6Mikgew0KICBjYXQocGFzdGUoJyMjIFBsb3QnLCBpKzIsICd7LX0gXG4gXG4nKSApDQogIHBsb3QobXRjYXJzWyxpXSwgbXRjYXJzWyxpKzFdKQ0KICBjYXQoJ1xuIFxuJykNCn0NCmBgYA0KDQojIEdHcGxvdA0KDQoNCmBgYHtyLCByZXN1bHRzPSdhc2lzJ30NCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShwbG90bHkpDQpkZiA9IGlyaXMNCg0KaXJpcyAlPiUgZ2dwbG90KGFlcyh4ID0gU2VwYWwuTGVuZ3RoLCB5ID0gU2VwYWwuV2lkdGgsIGNvbG9yID0gU3BlY2llcykpICsNCiAgZ2VvbV9wb2ludCgpICsgdGhlbWVfYncoKSArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICdib3R0b20nKSAtPiBwMQ0KDQppbnZpc2libGUoZ2dzYXZlKGZpbGVuYW1lID0gJ2ZpZ3MvaXJpc19wbG90LnBuZycsIHBsb3QgPSBwMSkgKQ0KDQpwbG90bHk6OmdncGxvdGx5KHAgPSBwMSkNCmBgYA0KDQoNCg0KTm90ZSB0aGF0IHRoZSBgZWNobyA9IEZBTFNFYCBwYXJhbWV0ZXIgd2FzIGFkZGVkIHRvIHRoZSBjb2RlIGNodW5rIHRvIHByZXZlbnQgcHJpbnRpbmcgb2YgdGhlIFIgY29kZSB0aGF0IGdlbmVyYXRlZCB0aGUgcGxvdC4NCg==